5 REM CHECK FOR WRITE-PROTECT (1541)
10 OPEN 15,8,15
20 PRINT#15,"M-R"CHR$(0);CHR$(28)
30 GET#15,A$: A=ASC(A$+CHR$(0))
40 IF(A AND 16)THEN 70
50 PRINT"WRITE PROTECT IS ON!"
60 GOTO 80
70 PRINT"NO WRITE PROTECT"
80 CLOSE 15